home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 77
/
Tiger_Disk_077_20xx_Tiger-Crew-Disk_de_Side_D.d64
/
ende ii_3
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
24 lines
2 printchr$(147): poke53280,.:poke53281,.:forz=0to24::poke650,255:poke56325,1
3 print"[151][172] [187]";:next:poke650,0:poke53281,11
5 poke56325,55: poke53280,.:s=54272:
6 v=53248:poke2041,13:
11 forn=0to62:reada:poke832+n,a:nextn
16 pokev+21,2::forc=9to18step.1
21 forf=1to102:pokev+2,161:pokev+3,108:pokev+40,c:pokev+23,2:pokev+29,2
26 forx=100to247step.9:fory=100to247step(y+33)-(x/y):forz=1to500:next:poke53281,11
31 print"[146][144] [157][157][157][205][205][205].[157]";: :
33 s=54272:pokes+24,15:pokes+1,128:pokes+5,9:pokes+6,9:pokes+4,129:pokes+4,128:
36 print"[146][144] [157][157][157][205][205][205].[157]"; :
41 s=54272:pokes+24,15:pokes+1,128:pokes+5,9:pokes+6,9:pokes+4,129:pokes+4,128
42 poke56325,1:forf=12to17step.7:pokev+40,f:pokev,.:next
46 printchr$(147):t$=" e n d e !":printtab(10);t$:fori=1tolen(t$):poke56325,2
47 s=54272:pokes+24,15:pokes+5,9:pokes+6,89:pokes+4,8*rnd(2)*2
48 pokes+1,6+rnd(2)*2:pokes+5,9:pokes+6,9::pokes+4,32:pokev+21,0
51 :printtab(9)"[218]";:nexti:print"[145][145][151] ";:
56 print"[151][157][157][157][157][157][157][157][157][157][157][157][157] [144]lukian's nonsens";:poke56325,.
57 s=54272:pokes+24,15:pokes+1,64:pokes+5,64:pokes+6,89:pokes+4,129:pokes+4,128
58 poke56325,55:fort=1to100:next:sys58253
61 data0,28,0,0,62,16,0,107,16,0,62,48,0,62,48,0,28,112,0,62,224
66 data1,255,192,3,255,128,6,255,0,6,255,0,6,255,0,6,255,0,6,255,0
71 data0,126,0,0,102,0,0,102,0,0,102,0,0,102,0,0,102,0,0,231,0